home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dr. Windows 3
/
dr win3.zip
/
dr win3
/
PROGRAMR
/
JORF21_2.ZIP
/
MANTRA.J
< prev
next >
Wrap
Text File
|
1993-07-05
|
1KB
|
43 lines
Mantra:Start
New (Counter)
Msg:Add("Mantra")
This next sample programs will display some windows &
and get some keyboard entry. One of my pet projects &
is making computers say Mantras, and idea proposed by &
Edsger Dijkstra many years ago.
Tibetan Buddhists use mechanical prayer &
wheels to pray more quickly and efficiently. &
Japanese Buddhists of the Amida sect believe &
that anyone who says "Amida" with pure &
heart will go to heaven, so they say it as many times as possible &
in hopes of forgetting and saying it with pure heart once in their lives.
This Mantra system combines these ideas just in case they &
may be right. Who can have purer heart than a &
computer? If you run a Mantra system often, perhaps &
your computer will also forget and therefore insure your place in heaven.
While (Kbd:Hit==False)
While (Counter < 40 And Kbd:Hit==False)
Mantra:Show(Here)
++Counter
While (Counter > 0 And Kbd:Hit==False)
Win:Del
--Counter
Kbd:Bye
Return
Mantra:Show (Level)
New (Row,Col)
Row = Num:Rand(2,10)
Col = Num:Rand(2,60)
Win:Add ("Om",Row,Col,0,0,Level)
Am I a butterfly that
dreams I am a computer?
Or am I a computer that
dreams I am a Butterfly?
Return(Ok)